home *** CD-ROM | disk | FTP | other *** search
/ Aminet 35 / Aminet 35 (2000)(Schatztruhe)[!][Feb 2000].iso / Aminet / dev / misc / FlexCat.lha / Lib / AztecAs_asm.sd < prev    next >
Encoding:
Text File  |  1999-11-28  |  2.9 KB  |  113 lines
  1. ##rem $Id: AztecAs_asm.sd,v 1.2 1999/11/28 03:36:41 carlos Exp $
  2. ##stringtype assembler
  3. ##shortstrings
  4. *****************************************************************
  5. *   This file was created automatically by `%fv'
  6. *   from "%f0".
  7. *
  8. *   Do NOT edit by hand!
  9. *****************************************************************
  10.  
  11. *   Includefiles
  12.         include "exec/types.i"
  13.         include "utility/tagitem.i"
  14.         include "libraries/locale.i"
  15.  
  16. *   Function declarations
  17.         xdef    Open%bCatalog
  18.         xdef    Close%bCatalog
  19.         xdef    Get%bString
  20.  
  21. *   Referenced data
  22.         xref    _LocaleBase
  23.  
  24. *   Referenced functions
  25.         xref    _LVOOpenCatalogA
  26.         xref    _LVOCloseCatalog
  27.         xref    _LVOGetCatalogStr
  28.  
  29. *   Data definitions
  30.         dseg
  31. OpenCatalogTags:
  32.         even
  33.         dc.l    OC_Language,0
  34.         dc.l    OC_BuiltInLanguage,%b_BuiltInLanguage
  35.         dc.l    OC_Version,%v
  36.         dc.l    TAG_DONE,0
  37.  
  38.         bss.l   %b_Catalog,4
  39.  
  40. %b_BuiltInLanguage:
  41.         %l,0
  42.  
  43. CatalogName:
  44.         dc.b    '%b.catalog',0
  45.  
  46. \teven\n\txdef\t%i\n%i:\tdc.l\t%d\n\t%s,0
  47.  
  48.  
  49. *   Code definitions
  50.         cseg
  51.  
  52. Open%bCatalog:
  53. *   a0 = Locale
  54. *   a1 = Language
  55.         movem.l a2/a6,-(sp)             ;   Save Regs
  56.  
  57.         lea     OpenCatalogTags,a2      ;   Store Language
  58.         move.l  a1,4(a2)
  59.         bne     Open%bCatalog1
  60.         lea     8(a2),a2
  61. Open%bCatalog1:
  62.         move.l  _LocaleBase,a6          ;   Call locale.OpenCatalog
  63.         move.l  a6,d0                   ;   Locale opened?
  64.         beq     Open%bCatalogEnd        ;   No, skip
  65.         tst.l   %b_Catalog              ;   Catalog opened?
  66.         bne     Open%bCatalogEnd        ;   Yes, skip
  67.         lea     CatalogName,a1
  68.         jsr     _LVOOpenCatalogA(a6)
  69.         move.l  d0,%b_Catalog
  70. Open%bCatalogEnd:
  71.         movem.l (sp)+,a2/a6
  72.         rts
  73.  
  74.  
  75. Close%bCatalog:
  76.         move.l  a6,-(sp)
  77.         move.l  %b_Catalog,a0           ;   Close the Catalog, if needed
  78.         move.l  #0,%b_Catalog
  79.         move.l  _LocaleBase,a6
  80.         move.l  a6,d0                   ;   Locale.library opened?
  81.         beq     Close%bCatalogEnd       ;   No, skip
  82.         jsr     _LVOCloseCatalog(a6)
  83. Close%bCatalogEnd:
  84.         move.l  (sp)+,a6
  85.         rts
  86.  
  87.  
  88. Get%bString:
  89. *   a0 = pointer to structure (ID, string)
  90.         move.l  a6,-(sp)                ;   Save regs
  91.  
  92.         move.l  (a0)+,d0                ;   Get string number
  93.         move.l  a0,a1                   ;   Get default string
  94.  
  95. Get%bString3:
  96.         move.l  _LocaleBase,a6          ;   Locale.library present?
  97.         move.l  a6,d1
  98.         beq     Get%bStringNoLoc        ;   No, skip
  99.         move.l  %b_Catalog,a0           ;   Catalog opened?
  100.         move.l  a0,d1
  101.         beq     Get%bStringNoLoc        ;   No, skip
  102.  
  103.         jsr     _LVOGetCatalogStr(a6)   ;   Call locale.library
  104. Get%bStringEnd:
  105.         move.l  (sp)+,a6
  106.         rts
  107.  
  108. Get%bStringNoLoc:
  109.         move.l  a1,d0
  110.         jmp     Get%bStringEnd
  111.  
  112.         end
  113.